Mt. Vesuvius Lives

INFO 526 - Summer 2025 - Final Project

Exploratory Analysis of Seismic Activity: Mt. Vesuvius
Author
Affiliation

Seismic Minds - Cedric Destin

School of Information, University of Arizona

Plan out layer mappings

The following libraries / functions will be used in order to answer Question 1, “How have the frequency and depth of seismic events at Mount Vesuvius changed over time?”

  • geom_point:
-   Creating a scatter plot of the seismic events (depth and duration-magnitude) over time
  • geom_line:

    • Creating a scatter plot of the seismic events (depth and duration-magnitude) over time
  • geom_bar:

    • View the frequency of the seismic events aggregated per year or year, month
Rows: 12,027
Columns: 12
$ event_id              <int> 4251, 4252, 22547, 22546, 22545, …
$ time                  <chr> "2011-04-20T00:27:24Z", "2012-06-…
$ latitude              <dbl> 40.81800, 40.80883, 40.82217, NA,…
$ longitude             <dbl> 14.43000, 14.42717, 14.42800, NA,…
$ depth_km              <dbl> 0.42, 1.31, 0.06, NA, NA, NA, NA,…
$ duration_magnitude_md <dbl> 1.2, 0.7, 2.2, 0.2, 0.2, 0.0, 0.8…
$ md_error              <dbl> 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3…
$ area                  <chr> "Mount Vesuvius", "Mount Vesuvius…
$ type                  <chr> "earthquake", "earthquake", "eart…
$ review_level          <chr> "revised", "revised", "preliminar…
$ year                  <int> 2011, 2012, 2013, 2013, 2013, 201…
$ date                  <dttm> 2011-04-20 00:27:24, 2012-06-19 …
Rows: 8,475
Columns: 12
$ event_id              <int> 4251, 4252, 22547, 22532, 22508, …
$ time                  <chr> "2011-04-20T00:27:24Z", "2012-06-…
$ latitude              <dbl> 40.81800, 40.80883, 40.82217, 40.…
$ longitude             <dbl> 14.43000, 14.42717, 14.42800, 14.…
$ depth_km              <dbl> 0.42, 1.31, 0.06, 1.14, 1.71, 0.3…
$ duration_magnitude_md <dbl> 1.2, 0.7, 2.2, 1.7, 1.0, 0.5, 0.0…
$ md_error              <dbl> 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3…
$ area                  <chr> "Mount Vesuvius", "Mount Vesuvius…
$ type                  <chr> "earthquake", "earthquake", "eart…
$ review_level          <chr> "revised", "revised", "preliminar…
$ year                  <int> 2011, 2012, 2013, 2013, 2013, 201…
$ date                  <dttm> 2011-04-20 00:27:24, 2012-06-19 …
Rows: 14
Columns: 3
$ year                       <dbl> 2011, 2012, 2013, 2014, 2015…
$ mean_duration_magnitude_md <dbl> 1.2000000, 0.7000000, 1.2698…
$ mean_depth_km              <dbl> 0.4200000, 1.3100000, 0.7245…

Rows: 14
Columns: 3
$ year                       <dbl> 2011, 2012, 2013, 2014, 2015…
$ mean_duration_magnitude_md <dbl> 1.2000000, 0.7000000, 1.2698…
$ mean_depth_km              <dbl> 0.4200000, 1.3100000, 0.7245…

  event_id                 time latitude longitude depth_km
1     4251 2011-04-20T00:27:24Z 40.81800  14.43000     0.42
2     4252 2012-06-19T21:29:48Z 40.80883  14.42717     1.31
3    22547 2013-01-01T07:34:46Z 40.82217  14.42800     0.06
4    22532 2013-01-09T15:07:04Z 40.82300  14.42733     1.14
5    22508 2013-01-19T03:51:34Z 40.81833  14.42400     1.71
6    22496 2013-01-28T05:59:03Z 40.82483  14.42517     0.31
  duration_magnitude_md md_error           area       type
1                   1.2      0.3 Mount Vesuvius earthquake
2                   0.7      0.3 Mount Vesuvius earthquake
3                   2.2      0.3 Mount Vesuvius earthquake
4                   1.7      0.3 Mount Vesuvius earthquake
5                   1.0      0.3 Mount Vesuvius earthquake
6                   0.5      0.3 Mount Vesuvius earthquake
  review_level year                date month
1      revised 2011 2011-04-20 00:27:24    04
2      revised 2012 2012-06-19 21:29:48    06
3  preliminary 2013 2013-01-01 07:34:46    01
4  preliminary 2013 2013-01-09 15:07:04    01
5  preliminary 2013 2013-01-19 03:51:34    01
6  preliminary 2013 2013-01-28 05:59:03    01
Rows: 161
Columns: 5
Groups: year, binned_duration [161]
$ year                        <dbl> 2011, 2012, 2013, 2013, 201…
$ binned_duration             <fct> "(1,1.25]", "(0.5,0.75]", "…
$ bin_midpoint                <dbl> 1.25, 0.75, 0.00, 0.50, 0.7…
$ mean_duration_magnitude_md  <dbl> 1.2000000, 0.7000000, 0.000…
$ count_duration_magnitude_md <int> 1, 1, 1, 4, 4, 11, 7, 9, 2,…

Plan out data wrangling methods

This section summarizes the data wrangling completed:

  • time:

    • Replace “T” with ” ”

    • Remove “Z”

    • Convert into a date variable

    • Extract the years

    • Extract the months